Commodore Dossier Aktief ver- 
schijnt 12 keer per jaar. In fe- 
bruari, mei, augustus en novem- 
ber als bijlage in het hart van 
Commodore Dossier, in de overi- 
ge maanden als losse uitgave 
uitsluitend voor abonnees van 
Commodore Dossier. 
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AKTIEF 





COMMODORE IN CONCURRENTIESLAG MET IBM 


Eind januari introduceerde 
Commodore in Frankfurt de 
Commodore PC, een machine 
die volgens de specificaties 100 
procent uitwisselbaar is met de 
IBM Personal Computer. Het 
bedrijf mikt met de PC voorna- 
melijk op de markt voor zake- 
lijke gebruikers, die tot nu toe 
eigenlijk alleen werden bediend 


door de 8000-serie van Commo- 
dore. De Commodore PC moet 
inclusief BTW rond de 6000 
gulden gaan kosten, beduidend 
minder dus dan de IBM PC. 
Omdat beide apparaten uitwis- 
selbaar zijn, is er voor de 
nieuwste van Commodore met- 
een al een grote hoeveelheid 
programmatuur beschikbaar on- 


der het MS-DOS besturings- 
systeem. Volgens Commodore 
biedt de Commodore PC vooral 
qua grafische prestaties heel wat 
meer dan de IBM, bovendien 
voor een beduidend lagere prijs. 
De machine moet in maart in 
Nederland leverbaar worden. De 
juiste prijs wordt binnenkort be- 
kend gemaakt. 


OMZET COMMODORE GESTABILISEERD 


In december vorig jaar maakte 
Commodore International Ltd., 
het moederbedrijf van de natio- 
nale Commodore-vestigingen, 
bekend dat de omzet wereldwijd 
in vergelijking met het vorige 
jaar ietwat teruggelopen was. 
De explosieve groei van de afge- 
lopen jaren lijkt nu plaats te 
hebben gemaakt voor een wat 
rustiger verloop van de om- 
zetstijging. Maar Clive G. 
Smith, een van Commodore’s 


vice-presidenten, zei op een 
persconferentie in New York 
dat de ontwikkelingen geen re- 
den tot zorg geven. ’’We had- 
den weliswaar een iets hogere 
omzet in december verwacht, 
maar we zijn toch tevreden met 
de verkoopcijfers.”’ 
Commodore ging met zijn top- 
model, de CBM-64, afgelopen 
jaar de derde Sinterklaas- en 
Kerstmisperiode in. Het is daar- 
om nog maar de vraag of deze 


machine dit jaar nog als ’trek- 
paard’ zal kunnen fungeren. 
Met de Vic-20 en de 64 wist 
Commodore zo’n 60 procent 
van de wereldmarkt voor com- 
puters onder de 1500 gulden in 
handen te krijgen. 

Het bedrijf richt alle hoop nu 
op de nieuwe generatie machi- 
nes. Voor de hobby-markt zijn 
dat de 128, de Plus/4 en de 
C-16, voor de zakelijke markt 
de PC en de Amiga. De Com- 
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> modore 128, die op de Consu- 
mer Electronics Show in Las Ve- 
gas werd geintroduceerd, bevat 
in vergelijking met de 64 twee- 
maal zoveel geheugen, een inge- 
bouwde schijfeenheid en een 
aanmerkelijk krachtiger Basic. 
Over de prijs die in Nederland 
zal gaan gelden, was bij het ter 
perse gaan van dit nummer nog 


niets bekend. De Plus/4 en de 
C16 zijn in het eerste nummer 
van Commodore Dossier uitvoe- 
rig beschreven. Bij Commodore 
Nederland gelooft men dat er in 
1985 in ons land zo’n 200.000 
huiscomputers over de toonbank 
zullen gaan. Dat is net zoveel als 
het totale aantal dat tot en met 
december vorig jaar is verkocht. 


COMMODORE 
VERDRINGT SINCLAIR 


In Engeland strijden Commodore en Sinclair nog steeds in alle hevig- 
heid om een eerste plaats in de gunst van de computer-hobbyist. In 
Nederland lijkt die strijd gestreden en de overwinning is duidelijk aan 
Commodore. Dat mag tenminste worden geconcludeerd uit cijfers van 
MCN. MCN staat voor Microcomputer Club Nederland, een activiteit 
van V&D en Dixons. Bijna 90 procent van de leden van die club heeft 
gekozen voor een Commodore-64 en ruim 10 procent behelpt zich dus 
met een Sinclair computer. 


COMMODORE’S BELOOFDE 
KRAKER: AMIGA 


Als alles goed gaat, brengt Commodore in de loop van dit jaar een re- 
volutionaire machine op de markt, die de concurrentie zal doen ver- 
bleken. Dat hoor je tenminste in de wandelgangen van het bedrijf. Het 
apparaat waar het om gaat, voorlopig Amiga’ gedoopt, heeft als be- 
langrijkste kenmerk dat het zowel de programmatuur van Apple Mac- 
intosh als de IBM PC kan verwerken. Beide machines zijn momenteel 
buitengewoon succesvol. De Macintosh van Apple is momenteel wel 
zo ongeveer het summum van gebruiksvriendelijkheid. Met een zoge- 
heten muis kan de gebruiker, door tekeningen op het scherm aan te 
wijzen, vrijwel alle functies uitvoeren. Met name de grafische moge- 
lijkkheden van de ’Mac’ zijn nog steeds ongeévenaard door andere 
computers. 

De IBM PC is sinds zijn introductie in 1982 vooral voor zakelijke toe- 
passingen een regelrecht kassucces geworden voor de computergigant. 
Het apparaat is zo’n beetje de industrie-standaard geworden en de 
hoeveelheid programmatuur die er voor te kriigen is, past al lang niet 
meer in een flinke computershop. 

Tot nu toe werd door insiders eigenlijk aangenomen dat het ondoen- 
liik is een redelijk geprijsde microcomputer te maken die tegelijk met 
de Macintosh en de IBM PC uitwisselbaar is. Maar Commodore blijft 
met klem beweren dat de Amiga in de eerste helft van dit jaar zal wor- 
den geintroduceerd. Sterker nog: de Amiga biedt de gebruiker in te- 
genstelling tot de Macintosh ook nog kleurenplaatjes. Naar verluid 
moet de Amiga in Amerika minder gaan kosten dan de Macintosh van 
Apple. Wanneer de machine in Nederland zal worden uitgebracht en 
wat hij dan precies gaat kosten, is nog niet bekend. 


PLOTTERPENNEN 


BlJ TANDY GOEDKOPER 


ben. Radio Shack (Tandy) ver- 
koopt passende plotterpennen in 
sets van 3 zwarte (catalogus- 


Bezitters van de 1520 plotter 
kennen het probleem: van de 
sets met pennen is altijd de 


zwarte het eerst op. Nieuwe sets 
zijn moeilijk te krijgen en bo- 
vendien blijft de gebruiker na 
verloop van tijd met een over- 
vloed aan gekleurde pennen zit- 
ten. K. Drechsel bleek er in Hot 
News iets op gevonden te heb- 


nummer 26-1480) of I rode, 1 
groen en I blauwe (nr. 
26-1481). De sets kosten f 8,90 
(3 stuks dus) terwijl een set van 
4 pennen bij Commodore maar 
liefst f 25,— kost. 








LAATSTE NIEUWS 


Niet de introductie van de 
C-128 was de grote verrassing 
bij Commodore op de onlangs 
gehouden CES in Las Vegas, 
maar de Commodore LCD, 
een draagbare computer met, 
de naam zegt het al, een groot 
opklapbaar LCD-scherm. 

De C-128 bleek er overigens 
professioneler uit te zien dan 
verwacht, het fraaie toetsen- 
bord heeft onder meer een 
apart numeriek gedeelte. De 
machine heeft drie micro- 
processors ingebouwd en kent 
dan ook drie ’modes’ of 
werkstanden. In de C-128 mo- 
de bedient hij zich van een 
nieuwe Basic-versie 7.0 De 
nieuwe 8-bit 8502 processor 
van deze mode is compatibel 
met de 6502 (0.a. BBC). In de- 
ze stand heeft de computer 
48K Rom voor het Basic be- 
schikbaar en 16K voor het ver- 
beterde besturingssysteem. In 
de C-64 stand, met de 6410A 
microprocessor, is de C-128 


volledig compatibel met de 
Commodore 64. Onder de der- 
de mode, met microprocessor 
Z80A draait alle software on- 
der besturingssysteem CP/M 
3.0, zoals Wordstar en dBase 
ll. Op de CES werden voor de- 
ze opmerkelijke machine prij- 
zen gehoord van rond de 300 
dollar, waarmee de Plus/4 dan 
wel kan inpakken. 

De Commotore LCD heeft een 
LCD-scherm van 80 kolommen 
bij 16 regels. In het 96K Rom- 
geheugen bevindt zich onder 
veel meer het Basic, een tekst- 
verwerker en een spreadsheet. 
De draagbare computer be- 
schikt over een ingebouwd 300 
Baud modem. Het communica- 
tieve karakter van de machine 
spreekt onder meer uit een he- 
le rist poorten aan de achter- 
zijde. Aan werkgeheugen is 
32K beschikbaar. Als prijs- 
indicatie werd voor de nieuwe 
machine 500 dollar op- 
gegeven. 


GERUCHTEN OVER 
PLUS/4 EN C-16 


De introductie van de nieuwe 
machines van Commodore, de 
C-16 en de Plus/4 komt maar 
moeizaam op gang. Binnen de 
gebruikersgroepen lijkt het ani- 
mo om met de nieuwe machines 
in de slag te gaan niet erg 
groot. Vrij algemeen is men en- 
thousiast over het fraaie Basic 
van de nieuwe machines, maar 
blijkbaar zit men met handen 
en voeten vast aan de oude ver- 
trouwde CBM-64. In dat licht 
moet waarschijnlijk ook de vrij 
plotselinge introductie van de 
128 worden gezien, een moder- 
ne, krachtiger versie van het 
succesnummer van Commodore. 
Inmiddels is er een geruch- 
tenstroom op gang gekomen 


over de C-16 en vooral over de 
Plus/4. De doorgaans zeer be- 
trouwbare Wallstreet Journal ci- 
teerde onlangs een topman van 
Commodore die een mislukte 
poging deed om de snelle ko- 
pers van de Plus/4 in Amerika 
gerust te stellen. ’’Als de Plus/4 
uit de markt zou worden geno- 
men,’’ aldus die zegsman,’’dan 
blijft Commodore de kopers 
van het eerste uur ondersteu- 
nen.’’ Dergelijke uitspraken zijn 
in de computer-business vaak 
een teken aan de wand. Overi- 
gens ontkent Commodore Ne- 
derland in alle toonaarden dat 
er sprake zou zijn van uit de 
markt nemen van de C-16 en 
Plus/4.<4 








HANDLEIDING 
BiJ DE LISTINGS 


Wie regelmatig listings uit tijdschriften of boeken intikt, kent het probleem: na uren van moeizaam turen en intikken, brengt het 
verlossende RUN’ geen uitkomst. Het programma blijft hangen. Meestal is een knullige tik-fout de schuldige, maar begin maar 
eens te zoeken. Met een eigen Sap ceale eae en een eigen checksum of controle-getal-programma hoopt Commodore 
Dossier die problemen voorgoed uit de wereld te helpen. 


CONVERSIE- 
PROGRAMMA 

De beruchte besturingstekens van Com- 
modore zijn vaak de oorzaak van fouten in 
zelf ingetikte listings. De symbolen zijn in 
drukwerk vaak moeilijk te lezen en dus 
snel oorzaak van een vergissing. Met Ba- 
sic worden deze besturingstekens op- 
geslagen door middel van een getal van 0 
tot 255, de zogenaamde Commodore 
ASCll-code. Zo wordt het dia-positieve 
hartje CLEAR’ opgeslagen als het getal 
147. Wij maken van dit gegeven gebruik 
om de listings van Commodore Dossier 
makkelijk leesbaar te maken. Door het ge- 
tal dat bij een bepaald besturingsteken 
hoort in een zogenaamde characterstring 
(chr$) te zetten, krijgen we hetzelfde resul- 
taat als bij het gebruiken van een bestu- 
ringsteken. 

In boeken en tijdschriften worden twee ma- 
nieren gebruikt om de moeilijk leesbare 
Commodore-tekens te vermijden. Om bij 
het voorbeeld CLEAR te blijven: 

1. print [shift clr home]. Op het scherm ver- 
schijnt een diapositief hartje. De afspraak 
bij deze methode is dat alles tussen de 
spekhaakjes uitgevoerd moet worden en 
dus niet moet worden overgetikt. 

2. print chr$(147). Bij het RUNnen van het 
programma zorgt deze regel er voor dat 
het scherm wordt schoongemaakt. 

De characterstrings bij de besturingste- 
kens staan vermeld in het handboek. 


Voortaan zullen we in onze listings dus uit- 
sluitend gebruik maken van charac- 
terstrings. Ervaren programmeurs en ze- 
ker de programmeurs die in opdracht van 
Commodore Dossier werken, zijn trouwens 
niet anders gewend. Als u thuis echter nog 
een listing heeft liggen die op de gewone 
manier is gemaakt en u vindt dat andere le- 
zers van Commodore Dossier van dat pro- 
gramma moeten meegenieten, dan is dat 
geen probleem. Met behulp van een 
CONVERSIE-PROGRAMMA kunnen wij 
elke listing aanpassen. Natuurlijk bespaart 
u de redactie een hoop werk als u zelf de 
conversie alvast uitvoert. 


CONTROLE- 
PROGRANMMA 

Dank zij het conversie-programma dat 
besturingstekens vervangt door charac- 
terstrings, zullen de listings in Commodore 





Dossier voortaan een stuk leesbaarder zijn. 
Dat neemt niet weg dat een tik-foutje nog 
snel is gemaakt. Het vervelende van die tik- 
fouten is dat ze pas worden ontdekt als het 
programmanietblijktte lopen. Dat probleem 
wordt uit de wereld geholpen door het on- 
derstaande controle-programma, in het En- 
gels meestal Checksum genoemd. 

Het controle-programma controleert aan de 
hand van een letter en een cijfer die uaan het 
eind van elke regel intikt, of de betreffende 
regel correct is ingevoerd. Is er een fout ge- 
maakt bij het intikken, dan verschijnt op het 
schermdezin: FOUT IN REGEL en wordt de 
betreffende regel niet in het programma op- 
genomen. Dat betekent dus overtikken. Het 
controle-getal-programma dat hieronder is 
afgedrukt, moet dus altijd eerst worden gela- 
den en geRUNd voordat u met het intikken 
van een listing begint. 

Het feitelijke controlegetal bestaat uit een 
letter en een cijfer, voorafgegaan door 
[shift][spatie]. 

Dat lijkt misschien wat minder elgant, om- 
dat we met ons conversie-programma juist 
die spekhaakjes uit de listings gebannen 
hebben, maar in de praktijk zal blijken dat 
door deze methode het controle-getal di- 
rect als zodanig herkenbaar is. Het tegelijk 
indrukken van shift en spatie ziet er op het 
scherm uit als een gewone spatie, de com- 
puter weet nu echter dat het controlegetal 
er aan komt. 

Om u zoveel mogelijk handenarbeid te 
besparen, hebben we aan het programma 


CHECKSUMPROGRAMMA 


1 rem checksumprogramma 

2 rem voor de commodore 64 
3 rem 

4 rem peter de zeeuw 

5 rem 


30 sys49155:new 





LET WEL: [shift][spatie] MOET U NIET INTIK- 


KEN, DAT MOET U DOEN. VOORDAT U DE 


LETTER EN HET CIJFER INVOERT, MOET U 
TEGELIJKERTIJD DE SHIFT-TOETS EN DE 
SPATIEBALK INDRUKKEN. 





nog een paar snufjes toegevoegd. Zo mo- 
gen spaties die niet tussen aanhalingste- 
kens staan, worden weggelaten, dat levert 
geen foutmelding op. Het gebruik van af- 
kortingen wordt ook niet bestraft. PRINT 
kan bijvoorbeeld worden afgekort met ?. 
Ons slimme controle-programm begrijpt 
dat en geeft geen foutmelding. 

Het feitelijke controle-getal bestaat uit een 
letter en een cijfer. Dat noemen we hexa- 
decimale getallen. Die gebruiken we onder 
meer om de eenvoudige reden dat ze kor- 
ter zijn dan gewone decimale getallen. 
Als u klaar bent met het intikken van een 
programma-listing, kunt u de controle- 
functie uitschakelen met de instructie SYS 
49152. Het aanzetten gebeurt met SYS 
49155. 


NOTA BENE 


Het controle-programma is uitsluitend bedoeld voor 


de CBM-64. Aan een aanpassing voor de Vic 20 
wordt gewerkt. We willen even bekijken of daar 


voldoende belangstelling voor is. Dat zal uit de 
post moeten blijken. Zodra de nieuwe machines 
van Commodore een beetje onder de mensen zijn, 
zullen beide programma’s in elk geval voor die ma- 
chines worden aangepast. 





10 fori=49152t049412:reada:pokei,a:x=x+ta:next 
20 ifx<>31526'thenprint"fout in dataregels":stop 


49152 data76,83,228,162,0,189,17,192,157,2,3,232,224,4,208 
49167 data245,96,21,192,46,192,32,96,165,134,122,132,123,32 
49181 datall5,0,170,240,243,162,255,134,58,144,6,32,124,165 
49195 data76,225,167,32,107,169,166,122,202,232,189,0,2,240 
49209 data81,201,160,208,246,169,0,157,0,2,232, 32,221,192 
49223 datal76,66,232,32,221,192,176,60,32,124,165,132,11,169 
49237 data0,133,15,165,20,69,21,133,251,160,5%185,251,1,72 
49252 data201,34,208,6,165,15,73,255,133,15,36,15,48,7,104 
49267 data201,32,240,7,208,1,104,69,251,133,251,200,196,11 
49281 datal44,221,240,219,165,251,197,252,240,54,162,0,189 
49294 data206,192,240,6,32,210,255,232,208,245,169,9,141,5 
49308 data212,169,0,141,6,212,169,15,141,24,212,169,25,141 
49322 datal,212,169,177,141,0,212,169,17,141,4,212, 32,196 
49336 datal92,169,16,141,4,212,76,21,192,76,164,164,24,165 
49350 datal62,105,30,197,162,208,252,96,70,79,85,84,32,73 


49364 data78,32,82,69,71,69,76,13,0,6,252,6,252,6,252,6,252 
49381. datal89,0;2,240,23,56,233748,144,18,201;,10,144,8,233 
49396 data?,144,,10,201,,16,176,7,b01,252,133,252,144,1,56,96 








49411 data32,202 
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TIPS & TRUCS 


Maandelijkse rubriek met korte programma’s, routi- 
nes en utilities. aero viezen van binnen- 
en buitenlandse professionals. Lezers helpen lezers. 
Het zijn de kleine dingen die het doen. Tips & trucs 
a lezers worden, indien geplaatst, beloond met 50 
guiden. 


DUMPEN, PLAKKEN EN 
VRAGEN 


RANDOM VRAGEN 


Omschrijving: U heeft een pro- 
gramma gemaakt dat de ge- 
bruiker een aantal vragen stelt. 
U wilt dat deze vragen niet el- 
ke keer in dezelfde volgorde 
gesteld worden en dat geen 
enkele vraag een tweede keer 


aan de orde komt. De on- 
derstaande demonsiratie leert 
u hoe u dit aan moet pakken. 
Instructie: Bestudeer het vol- 
gende programma nauwkerig 
en pas het naar eigen behoef- 
te aan: 


In het interview met Jan van 
Die (pagina 8) is sprake van 


een boek dat Van Die en colle- 


ga Volders binnenkort uitbren 


SCREENDUMP 
Omschrijving: Met het on- 
derstaande programma kunt u 
alles wat op uw beeldscherm 
staat naar de printer sturen. 


SCREENDUMP 


spatie>98 


ie>92 


gen. In overleg met uitgever 


Kluwer, koos Van Die een drie- 


tal pagina’s uit het boek, die 
we hier integraal overnemen. 


Instructie: Neem het volgende 
programma nauwkeurig over 
en SAVE het voor u het in 
werking stelt. 





0 rem screendump<shift>/<spatie>8f 

10 printchr$(19);<shift>/<spatie>66 

20 zz=(peek(210))*256<shift>/<spatie>ca 

30 open3,3<shift>/<spatie>ad 

40 openl,4<shift>/<spatie>9e 

50 fory=0to24:bS=""<shift>/<spatie>24 

60 forx=0to39:a$=""<shift>/<spatie>24 

70 ifpeek(zz+((y*40)+c) )>127thenget#3,a$:b 
$=b$+chr$(18)+a$+chr$(146):gotoll0<shift>/< 


; 80 get#3,a$<shift>/<spatie>a8 
90 ifa$S=chr$(13)thenas=" 


"<shift>/<spat 


100 bS=bS+a$<shift>/<spatie>19 


RANDOM VRAGEN 


10 fori=0to4<shift>/<spatie>d0o 

20 reada$(i)<shift>/<spatie>be 

30 next<shift>/<spatie>9c 

40 data"vraag 1","vraag 2","vraag 3","vraag 
4","vraag 5"<shift>/<spatie>f9 

50 v=5<shift>/<spatie>e3 


60 x=rnd(-ti)<shift>/<spatie>da 

70 ifv=O0thenend<shift>/<spatie>3e 

80 x=rnd(0)*5<shift>/<spatie>a9 

90 ifa$(x)=""then70<shift>/<spatie>ff 
100 printaS(x)<shift>/<spatie>cl 

110 a$(x)=""<shift>/<spatie>e0d 

120 v=v-l<shift>/<spatie>50 

130 goto70<shift>/<spatie>0c 





MERGE 

Merge staat voor samenvoe- 
gen van programma’s. In het 
Basic van de Commodore 64 
is hiervoor geen commando 
beschikbaar. Met de volgende 
korte machine-code routine 
kan het toch. Om deze routine 
te gebruiken moet eerst het 
eerste gedeelte van het pro- 


SYS 40448 in. Daarna laadt u 
het tweede programma en tikt 
vervolgens SYS 40468 in. De 
programma’s zijn nu samenge- 
voegd. Vergeet niet de routine 
uit het geheugen te halen na- 
dat u hem heeft gebruikt. De 
regelnummers van het tweede 
programma moeten hoger zijn 







110 nextx<shift>/<spatie>b4 

120 print#l,b$<shift>/<spatie>9b 
130 nexty<shift>/<spatie>59 

140 closel<shift>/<spatie>ld 





gramma worden geladen, 
waarna deze routine wordt toe- 
gevoegd en het geheel wordt 


dan die van het eerste. Als dat 
niet het geval is, werkt de rou- 
tine wel, maar de nummering 











150 close3<shift>/<spatie>05 





APPEND (ALGEMEEN) 


Omschrijving: Door middel van 
onderstaande techniek kunt u 
uw favoriete subroutines aan 
elk willekeurig programma toe- 
voegen. 

Instructie: U moet er van te 
voren voor zorgen dat het 
twee programma hogere regel- 
nummers heeft dan het eerste. 
Vervolgens voert u de volgen- 
de stappen uit: 

1) laad het eerste programma. 
2) geef de computer de op- 
dracht: 

PRINT PEEK(43)PEEK(44) 
PEEK(45) 

Schrijf de getallen die de com- 
puter meldt op. 


3) Gebruik het derde getal om 
de volgende opdracht te 
vinden: 

getal 3>2: 

POKE43,PEEK(45) - 2 

getal 3=2:POKE43,0 

getal 3=1: 
POKE43,255:POKE44, 
PEEK(46) - 1 

getal 3=0: 
POKE43,254:POKE44, PEEK 
(46) - 1 

4) laad het tweede pro- 
gramma. 

5) POKE 43 met het eerste en 
POKE 44 met het tweede op- 
geschreven getal. 

6) geef de opdracht LIST. 


geRUNd. Vervolgens tikt u wordt een rotzooitje. 


MERGE 


1000 rem merge voor chm 64<shift>/<spatie>76 

1010 :<shift>/<spatie>cb 

1020 fori=40448t040478:reada:pokei,a:next<shi 
ft>/<spatie>ef 

1030 data216,56,173,45,0,233,2,141,43,0,173, 

46<shift>/<spatie>ab 

1040 data0,141,44,0,96,234,234,234,169,1,141, 
43<shift>/<spatie>89 

1050 data0,169,8,141,44,0,96<shift>/<spatie> 

ad 








PROGRAMMAS OP 
CASSETTE OF SCHIJF 

Als blijkt dat daar bij de lezers van Commodore Dossier behoefte 
aan bestaat, worden een aantal programma’s uit Commodore Dos- 
sier op cassette of schijf uitgebracht. Het eerste programma dat 
daarvoor in aanmerking komt, is natuurlijk onze tekstverwerker. 
Maar we denken ook aan een cassette of een schijf met een aantal 
kortere programma’s zoals onze checksum, een conversieprogram- 
ma, de sprite-editor en dergelijke. Wij wachten even op uw reactie. 





CLEAR 

Het volgende programma werd 
opgestuurd door F. Gijsbertse 
uit Amersfoort, het spaart vari- 
abelen voor de CLEAR-functie. 
Een programma met veel vari- 
abelen kan erg langzaam wor- 
den. Helaas worden alle varia- 


wordt. Dit programma zet de 
variabelen in aparte geheugen- 
plaatsen zodat ze met CLR 
niet worden gewist. Met PRINT 
wordt de variabele in het 
schermgeheugen gezet, waar- 
uit ze altijd makkelijk kunnen 
worden teruggelezen. Het pro- 


gramma kan ook van pas ko- 
men bij gebrek aan geheugen- 
ruimte. Een programma wordt 
met NEW gewist nadat de va- 
riabelen in het schermgeheu- 
gen zijn opgeslagen. Als met 
LOAD het volgende program- 
ma wordt geladen, kunnen de 


‘oude’ variabelen uit het ge- 
heugen worden gelezen. 

Na het RUNnen van dit pro- 
gramma zijn de variabelen uit 
Z, Y en X$ verdwenen, maar 
zijn de ingegeven variabelen in 
V1, V2 en VA$ bewaard ge- 
bleven. 


belen gewist als geCLEARD 


CLEAR 

1 rem met het geven van het “clr” commando verdwijnen de variabelen<shift>/<spati 
er>99 

2 rem door een handigheidje blijven sommigen gespaard<shift>/<spatie>89 

3 rem dit wordt gedaan door ze weg te zetten in het geheugen<shift>/<spatie>96 

4 rem de 1000 bytes van het scherm zijn hiervoor het meest geschikt.<shift>/<spat 
ie>e4d 

5 rem door een eenvoudige print wordt de variabele in het geheugen<shift>/<spatie 
>de 

6 rem gezet. het scherm heeft het voordeel dat niet “gepoked” hoeft<shift>/<spati 
e>fa 

7 rem te worden.<shift>/<spatie>b2 

8 rem bij kleine getallen (<0.01) werkt het niet door de e-notatie.<shift>/<spati 
e>£5 


9 :<shift>/<spatie>33 
10 z2=12:y=3.98:xS="test"<shift>/<spatie>ce 
20 input"va #1";vl<shift>/<spatie>e8 
30 input"va #2";v2<shift>/<spatie>e2 
- 40 input"uw naam ";vaS<shift>/<spatie>84 
50 printchrs$(147);<shift>/<spatie>64 
60 printchr$(31): rem achtergrond kleur<shift>/<spatie>c8 
62 :<shift>/<spatie>04 
65 rem de variabelen worden nu n de achtergrond kleur geschreven<shift>/<spatie> 


66 rem en zijn dus onzichtbaar.<shift>/< spatie>e0 

68 :<shift>/<spatie>7e 

70 printvl : rem schermgeheugen # 1064 is 

het begin vd regel waar vl staat<shift>/<spatie>47 

80 printv2 rem idem.# 1104<shift>/<spatie>3a 

90 printva$: rem idem # 1144<shift>/<spatie>63 

100 clr<shift>/<spatie>f8 

110 i=0<shift>/<spatie>a5 

120 a=peek(1064+i):aS=chr$(a)<shift>/<spatie>c2 

130 vlS=vlS$+a$<shift>/<spatie>ff 

140 ifa$<>chr$(32)ori=0theni=i+l:gotol20<shift>/<spatie>d2 
150 i=0<shift>/<spatie>5d 

160 a=peek(1104+i):a$=chr$(a)<shift>/<spatie>ld 

170 v2S=v2$taS$<shift>/<spatie>d7 

180 ifa$<>chr$(32)ori=0Otheni=i+l:gotol60<shift>/<spatie>ee 
190 i=0<shift>/<spatie>75 

200 a=peek(1144+i):a$=chr$(a+64)<shift>/<spatie>d9 

210 vaS=vaS$ta$<shift>/<spatie>af 

220 ifaS<>chr$(32+64)theni=it+l:goto200<shift>/<spatie>50 
221 :<shift>/<spatie>e7 , 

225 rem voor letters is de peek-waarde niet gelijk aan 
patie>29 

226 rem hierdoor ontstaan problemen met de chr$-funktie<shift>/<spatie>72 
227 rem het verschil is 64<shift>/<spatie>31l 

228 :<shift>/<spatie>de 

230 vl=val(vl1$)<shift>/<spatie>b4 

240 v2=val(v2$)<shift>/<spatie>a2 

250 i=len({vaS$)<shift>/<spatie>f£0 

260 vaS=left$(va$,i-1):rem hetteken met code 32+64 dumpen<shift>/<spatie>42 
270 printchr$(147):printchr$(154)<shift>/<spatie>37 

280 print"z="2,"y="y,"xS="xS$<shift>/<spatie>bd 

290 print<shift>/<spatie>ba 
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de ascii-waarde<shift>/<s 





LISTINGS VAN LEZERS 


Het beste uit POSTBUS 9194. De programma’s die in deze rubriek worden geplaatst, worden beloond met 50 guiden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De pen are bij voorkeur inzenden op schijf of cas- 
sette, zodat we zeker weten dat ze ‘lopen’. Gedrukte programma’s moeten in elk geval van characterstrings in plaats van 

besturingstekens zijn voorzien. De beste a ramma’s uit deze rubriek kunnen in anne komen om door COMMODORE DOS- 
SIER in samenwerking met een software-bedrijf commercieel op de markt te worden gebracht. In dat geval staat de auteur alle 


rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 


VOETBALPROGNOSE 

Met dit programma van Paul voet worden gevolgd. Elk vervolgens een prognose voor _ lier invullen. Tenzij u tot de 
Spruit en Cees Duivenvoorde weekend na Studio Sport moe- de uitslagen van de volgende —mensen behoort die denken 
uit Beverwijk kan de vader- ten de uitslagen worden inge- — week. Aan de hand van die meer verstand van voetballen te 
landse voetbalcompetitie op de ~voerd. Het programma doet prognose kunt u uw totoformu- hebben dan de Commodore 64. 


VOETBALUITSLAGEN 


10 poke53280,0:poke53281,0:poke646,5:fork=49152t049188:readq:pokek,q:next<shift>/ 
<spatie>9f 

20 printchrs$(147)"voetbalprognose door p. spruit";<shift>/<spatie>69 

21 forxx=lto5:printchr$(17);:next:print<shift>/<spatie>c5 

30 print"l laden gegevens van tape/disk":print"2 saven gegevens naar tape/disk"<s 
hift>/<spatie>6f 

40 print"3 prognoses maken":print"4 invoeren uitslagen":print"5 ranglijst"<shift> 
/<spatie>ab 

50 ifa=Othenprint"6 elftallen invoeren"<shift>/<spatie>2l 

60 geta$:ifval(a$)<lorval(a$)>6or(val(a$)=6anda>0)then60<shift>/<spatie>a6 

70 onval (a$)gosub1000, 2000, 3000,4000,5000,6000:goto20<shift>/<spatie>6l 

100 datal69,4,133,100,169,80,133,99,160,40,177,99,160,0,145,99,166,99,224,111l<shi 
ft>/<spatie>c7 

110 data240,8,230,99,208,238,230,100,208,234,166,100,224,7,208,242,96<shift>/<spa 
tie>dc 

150 dima$(a),a(a),b(a,a),c(a),d$(a),e(a),£(a),g(a),h(a):return<shift>/<spatie>c0 
1000 printchr$(147)"laden gegevens van tape of disk ?":clr<shift>/<spatie>16 

1010 geta$:ifaS="t"thenprintchr$(19)tab(23)" ":b=1:gotol040<shift>/<spat 
ie>31 

1020 ifaS="d"thenprintchr$(19)tab(19)"disk ":b=8:gotol040<shift>/<spatie 
>c4 

1030 gotol010<shift>/<spatie>8b 

1040 input"onder welk file-nummer staan de gegevens";f:qS="data"+str$(f)<shift>/< 
spatie>2e 

1041 ifb=8thenq$=q$+",s,r"<shift>/<spatie>e8 

1045 iff>127orf<lthenprintchrs(145)chr$(1 45);:gotol040<shift>/<spatie>9e 

1050 open2,b,0,q$:input#2,a:gosub150:fork=ltoa:input#2,a$(k) :next:fork=ltoa<shift 
>/<spatie>cd 

1055 input#2,a(k) :next:fork=ltoa:input#2,c(k) :next:fork=ltoa:input#2,g(k):next<sh 
1ft>/<spatie>36 

1060 fork=ltoa:forl=ltoa:input#2,b$:b(k,1)=val(b$) :next:next<shift>/<spatie>99 
1070 close2:gotol0<shift>/<spatie>0a 

2000 ifa=O0thenprintchr$(147)"er zijn nog geen gegevens ":fort=l1to2000:next:return 
<shift>/<spatie>f2 

2010 printchr$(147)"saven gegevens naar tape of disk ?"<shift>/<spatie>ce 

2020 getaS:ifaS="t"thenprintchr$(19)tab(24)" ":b=1:goto2050<shift>/<spat 
ie>26 

2030 ifaS="d"thenprintchr$(19)tab(20) "disk ":b=8:goto2050<shift>/<spatie 
>da 

2040 goto2020<shift>/<spatie>76 / 

2050 input"onder welk file-nr. moeten de gegevens worden gesaved";f<shift>/<spat 
ie>f9 

2055 iff>127orf<lthenprintchr$(145)chr$(145);:goto2050<shift>/<spatie>82 

2056 q$="data"+str$(f)<shift>/<spatie>fe 

2057 ifb=8thengS=qS$+",s,r"<shift>/<spatie>fc 

2060 open2,b,1,q$:print#2,a:fork=ltoa:print#2,a$(k):next:fork=ltoa<shift>/<spatie 
255 

2065 print#2,a(k):next:fork=ltoa:print#2,c(k) :next:fork=ltoa:print#2,g(k):next<sh 
ift>/<spatie>28 

2070 fork=ltoa:forl=ltoa:a$=str$(b(k,1)):print#2,a$:next:next<shift>/<spatie>ba 
2080 close2:return<shift>/<spatie>0de 

3000 ifa=O0then2000<shift>/<spatie>S5e 

3010 printchr$(147)"prognoses maken":printchr$(17)"hoeveel wedstrijden";<shift>/< 
spatie>e9 

3015 inputa$:ifval(a$)=0thenreturn<shift>/<spatie>97 
3020 c=val(a$):printchr$(17)"wedstrijd 
printchr$(17)<shift>/<spatie>7a 
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prognose":fork=ltoc: 








3030 ee ee ee ee 
3035 form=ltoa:ifleft$(a$(m),len(a$) )<>a$thennext:goto3030<shift>/<spatie>5l 
3040 oe "tab(20);:inputa$:forl=ltoa<shift>/<spatie>55 
3050 ifleft$(a$(1), aa ae goto3040<shift>/<spatie>f£6 
3060 printchrs(145)tab(20);a$( "sifl=mthen3040<shift>/<spatie>89 
3070 d=g(m) *a(m)/3:forn= ltoa: d= aac ues te eee te otk 
3080 e=g(1)*a(1)/3:forn=ltoa:e=etb(1,n)*a(n):next:ifd>e*1l.4thenaS="1"<shift>/<spa 
tie>cé6 
ifd<e*.75thenaS="2"<shift>/<spatie>ed 
printchr$(145)tab(37);a$:nextk<shift>/<spatie>5S5c 
"chr$(17)"“spatie’ om terug naar menu te keren"<shift>/<spatie>ec 
geta$:ifa$<>" "then3110<shift>/<spatie>be 
return<shift>/<spatie>b2 
ifa=Othenprintchr$(147)"er zijn geen ploegen ingevoerd":fort=1to2000:next:re 
turn<shift>/<spatie>f7 
4010 printchr$(147)"invoeren uitslagen"<shift>/<spatie>b0 
4015 printchr$(17)chr$(17)"hoeveel uitslagen wilt u invoeren";:inputa$<shift>/<sp 
atie>8b 
4020 c=val(a$):ifc= oid 0 cp hee cg ak 
4025 printchr$(17)chr$( Jehrs ( ):al=0:fork=ltoc<shift>/<spatie>b3 
4030 Sst ae eit Fein (oo tni BenAteenticsee 
4040 ifleftsS(a$(1),len(a$) agar iy pc eyre ss Mis re 
4045 ifl>athenprintchrs ( 1s :goto4030<shift>/<spatie>b2 
4050 printchr$(145)k":"a$( " "tab(18)"-";:inputaS:form=ltoa<shift>/<spatie>34 
4060 ifleft$(aS(m),len(a$) ) Tet nee eae 
4065 i fapaor L=anthentos0<shi Ft> /eenatiasyd 
4070 printchr$(145)k":"a$(1);tab(18)"-"a$(m)" "tab(29);:inputa$:d=val(a$)<shift> 
/<spatie>6e 
4075 printchr$(145 eeaart "<shift>/<spatie>04 
4080 printchr$(145)k":"aS$( stab(18)"-"aS(m);tab(29)" "d" -";tab(33);:inputa$<shi 
ft>/<spatie>f£6 
4085 e=val(a$)<shift>/<spatie>ac 
4090 printchrs$(145)k"s"aS(1) -tab(18)"="aS(m) ;tab(29)" "a" -"ptab(33)" "ee" "<shitt 
>/<spatie>58 
print"ok(j/n)"<shift>/<spatie>46 
geta$<shift>/<spatie>34 
ifaS="n"thenprintchrs(145)" "chr$(145):goto4030<shift>/<spatie>a8 
ifa$<>"j"then4095<shift>/<spatie>18 , 
printchrs(145)" :printchrs$(145);<shift>/<spatie>32 
g(l)=g(1)+1: gia (m o c(1)=c(1)+d-e: c(m)=c(m)+e-d<shift>/<spatie>2e 
ifd>ethena(1) +2:b(1,m)=b(1,m)+2<shift>/<spatie>b8 
ifd<ethena(m eas +2 Ein ice eee 
ifd=ethena(m)=a tl:a(l)=a(1)+1:b(1,m)=b(1,m)+1:b(m,1)=b(m,1)+1l<shift>/<spa 
tieo>97 . 
4140 nextk:return<shift>/<spatie>41 
5000 ifal=lthen5070<shift>/<spatie>46 





)=g(m 
ai 1) 
(m) 
(m) 


5005 ifa=Othenprintchr$(147)"er zijn nog geen gegevens":fort=l1to2000:next:return< 


shift>/<spatie>9b 

5010 printchrs(147)"even geduld a.u.b":print"de ranglijst wordt nu berekend":al=1 
<shift>/<spatie>d5 

5020 fork=ltoa:d$(k)=a$(k) :e(k)=a(k) :£(k)=c(k) :h(k)=g(k) :next<shift>/<spatie>90 
5030 s=0:fork=2toa:ifd$(k)<d$(k-1)thengosub5200<shift>/<spatie>44 

5035 next:ifs=lthen5030<shift>/<spatie>fa 

5040 s=0:fork=2toa:iff(k)>f£(k-1)thengosub5200<shift>/<spatie>50 

5045 next:ifs=lthen5040<shift>/<spatie>e3 

5050 s=0:fork=2toa:ifh(k)<h(k-1)thengosub5200<shift>/<spatie>58 

5055 next:ifs=lthen5050<shift>/<spatie>es8 

5060 s=0:fork=2toa:ife(k)>e(k-1)thengosub5200<shift>/<spatie>24 

5065 next:ifs=lthen5060<shift>/<spatie>9d 

5070 printchrs(147)" elftal pnt. wdstr. dls. "<shift>/<spatie>df 
5080 fork=ltoa:ifk>20then5130<shift>/<spatie>8e 

5090 ifk<lOthenprint" ";<shift>/<spatie>a6 

5095 printktab(2);d$(k)tab(20)e(k)tab(27)h(k Heal (3 4)£(k):next<shift>/<spatie>be 
5100 printchr$(19);:forxx=lto23:printchr$(17);:next<shift>/<spatie>ee 

5105 print" “spatie” om terug naar menu te et oe 

5110 getaS:ifa$<>" "then5110<shift>/<spatie>75 

5120 return<shift>/<spatie>9a 

5130 printchr$(19):forxx=1to23:printchr$(17);:nextxx<shift>/<spatie>34 

5135 print" ’spatie” voor het volgende elftal"<shift>/<spatie>cb 

5140 geta$:ifa$<>" eta i ee 

5150 sys49152:printchr$(19);:forxx=lto21:printchr$(17);:nextxx:goto5090<shift>/<s 
patie>39 

5200 s=1:c$=d$(k):d$(k)=d$(k-1):d$(k-1)=c$:c=e(k-1):e(k-1)=e(k):e(k)=c<shift>/<sp 
atie>94 

5210 c=f£(k-1):£(k-1)=£(k):£(k)=c:c=h(k-1):h(k-1)=h(k) :h(k)=c:return<shift>/<spati 
ercod 

6000 printchrs$(147)"elftallen invoeren":<shift>/<spatie>43 

6001 printchr$(17)chr$(17)"hoeveel elftallen";:inputa: i fac3thens000<shift>/<spati 
ero2 

gosub150:fork=ltoa:print"elftal ";k;:inputa$(k):next:return<shift>/<spatie 

a 
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COMMODORE DOSSIER AKTIEF PROGRAMMAS 





Maandelijkse rubriek met listings van programma’s die waard zijn in uw programma-bestand te worden opgenomen. 

Alle ad zijn voorzien van een ee dee zodat fouten bij het intikken vrijwel zijn uitgesloten. Het controle-getal 
wordt in elke regel vooraf gegaan door (een ie]. Deze twee woorden moet u niet intikken, maar u moet tegelijkertijd de 
shift-toets en de spatiebalk indrukken. Op het scherm ziet dat uit als een gewone spatie. Voor nader informatie over het 
controle-getal, zie de handleiding elders in dit nummer. 


BIORITME 

Het volgende Bioritme- met wie u op pagina 9 een in- _ alleen tot zijn recht als er een —_ scherm. De conclusies die u 
programma werd ons ter be- terview kunt lezen. Dit is het printer. op de computer is aan- aan de uitslag van een Bio- 
schikking gesteld door de pa- programma dat Toon zelf in gesloten. De uitgebreide uit- ritme-uitdraai verbindt, zijn uiter- 
ragnost Toon Hoendervangers zijn praktijk gebruikt. Het komt draaien vertellen meer dan het aard voor uw eigen rekening. 


BIORITME 


poke53280,15:poke53281,15<shift>/<spatie>3l 
printchrs(147)chr$(28)chr$(14)chr$(17);<shift>/<spatie>8d 
printchrs(18)" menu "<shift>/<spatie>70 
print,chr$(31)chr$(17)chr$(17)"l. bioritme (uitgebreid)"<shift>/<spatie>60 
print,chr$(17)"2. bioritme (kort)"<shift>/<spatie>4a 
print,chr$(17)"3. einde":pokel98,0:waitl98,1l<shift>/<spatie>27 
geth1$:onval (h1$)goto50,1360,1700<shift>/<spatie>6d 
open4,4:print#4,chrs$(27):print#4,chr$(27)<shift>/<spatie>81l 
dimpr$(31),m$(12),d$(7),k$(20)::fori=ltol2:readm$(i):next:fori=lto7:readd$(i)< 
shift>/<spatie>5d 
70 next:fori=1to40:s$=s$+"-"snext:ss=0<shift>/<spatie>la 
80 prs="(-) (0) (+)":gosub90:gotol30<shift>/<spatie>cc 
90 fori=lto3l:pr$(i)="-"snext:pr$(16)=chr$(33):return<shift>/<spatie>le 
100 datajanuari 31,februari 29,maart 31,april 30,mei 31,juni 30,juli 31l<shift>/<s 
patie>f4 . 
110 dataaugustus 31,september 30,october 31,november 30,december 31<shift>/<spati 
e>f0 
120 datazondag ;maandag ,dinsdag ,woensdag ,donderdag,vrijdag ,zaterdag ,<sh 
ift>/<spatie>d4 
130 readx:printchrs(147);:te=1:gosub920:printchrS(147);:gosub920:hu=1:te=0<shift> 
/<spatie>f8 f 
140 printchrs(28)chr$(19)chr$(17)chr$(17)chr$(17)"welke maand wilt u"chr$(31)<shi 
ft>/<spatie>77 
145 print’(1-12) “enrs¢191)" "s<shift>/<spatie>f2 
150 forxx=l1tol0:printchrs(157);:nextxx:inputi$:m=val(iS$)<shift>/<spatie>5a 
160 d=1:ifm<lorm>12thenprinttab(8)chr$(145)"fout":fori=1to0999:next:gotol40<shift> 
/<spatie>f6 
170 fori=ltolen(mS(m)):ifmidS(mS$(m),i,1)=""thenl90<shift>/<spatie>88 
180 next<shift>/<spatie>36 
190 printtab(8)chr$(145)leftS(mS(m),i)<shift>/<spatie>ea 
200 printchr$(28)chr$(19);:forxx=lto6:printchrs(17);:nextxx<shift>/<spatie>22 
205 print"van welk jaar"chr$(31):print"[na 1581] "chrs$(191)" "s<shift>/<s 
patie>87 
210 forxx=ltoll:printchrs(157);:nextxx:inputiS: j=val(iS)<shift>/<spatie>18 
220 ifi$=chr$(191)thenprinttab(11)chr$(145)"fout":fori=ltol000:next:goto200<shift 
>/<spatie>dod ; 
230 if j<1l00thenj=j+1900<shift>/<spatie>12 
240 if}<158lthen printtab(11)chr$(145)"fout":fori=l1tol000:next:goto200<shift>/<sp 
atie>28 
250 printtab(10)chr$(145)j<shift>/<spatie>54 
260 printchr$(28)chr$(17)"wat is uw naam"chr$(31):inputn$<shift>/<spatie>f8 
270 printchr$(28)chr$(17)chr$(17)"wat is uw geboortedag "<shift>/<spatie>4l1l 
275 print" (dd,mm,jj)"chr$(31):inputdd$,mm$,jj$<shift>/<spatie>f5 
280 dd=val(dd$):ifdd<lordd>3lthen285<shift>/<spatie>e3 
281 goto290<shift>/<spatie>aa 
285 poke214,11:printchrs$(145)chr$(18)"geboortedag fout"chr$(146):gosub360<shift>/ 
<spatie>l4 
286 goto270<shift>/<spatie>a3 
290 mm=val(mmS$):ifmm<lormm>12then295<shift>/<spatie>d9 
291 goto300<shift>/<spatie>98 
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295 214,11:"chr$(145)chr$(18)"ma ingave fout"chr$(146):gosub360<shift>/<spatie>a7 
296 goto270<shift>/<spatie>95 4 
300 jj=val(jjS):i£55<100thenj j=j354+1900<shift>/<spatie>fb 

310 ifjj>jthenpoke214,11:printchr$(145)"nog niet geboren":gosub360:goto270<shift> 
/<spatie>3b 

320 printchrs(145)" "<shift>/<spatie>2e 

} 330 huS=str$(dd)+" "+left$(m$(mm),len(mS (mm) )-2)+str$(jj)<shift>/<spatie>£f4 

340 printchrs(145)huS:ifhu=lthengosub940<shift>/<spatie>3b 

350 dds=""zmm$=""; 44$="":iS="":goto370<shift>/<spatie>ab 

360 fori=lto2000:next:printchrs(145);:fori=lto21l:print" ";:next:print:return<shif 
t>/<spatie>93 

370 ifss=lthen440<shift>/<spatie>ec 

380 printchrs(28)chr$(17)"vergelijken (j/n)":printchr$(31)<shift>/<spatie>c9 

390 getvS:ifvS<>"j"andvs$<>"n"then390<shift>/<spatie>d3 

400 v=0:ifvS="n"then440<shift>/<spatie>ed 

410 v=l:print"geef 2e naam "sinputn2S<shift>/<spatie>5f 

420 printchr$(28)chr$(17)"geef de 2de datum "sprint" (dd,mm,jj)"chr$(31)<shift>/< 
spatie>0c 

425 inputd2,m2,j2<shift>/<spatie>5c 

430 if j2<100thenj2=32+1900<shift>/<spatie>69 

440 k=int(.6+(1/mm) ):1=jj-k:o=mm+12*k:p=1/100<shift>/<spatie>7e 

450 zl=int(p/4):z2=int(p):z3=int((5*1)/4):z4=int(13*(0+1)/5)<shift>/<spatie>ca 
460 z2=z4+z23-z22+z1+dd-1:z=(z-(7*int(z/7)))+1l<shift>/<spatie>ed 

470 print#4,"u werd geboren op een "d$(z):print#4,chr$(10)<shift>/<spatie>67 

480 433S=str$(j): j4S=right$(45j$,2):ifhu=lthengosub1110<shift>/<spatie>a2 

490 ifm=3thenprint"mrt. “";:goto510<shift>/<spatie>6c 

500 printleft$(m$(m),3)".°";<shift>/<spatie>ad 

510 printjj$" "prS:print:s=l<shift>/<spatie>0d 

520 ifm<3goto540<shift>/<spatie>f4 

530 £1=(365*j+d+31*(m-1)-int(.4*m+2.3)+int(j/4)-int(3/4*int(4/100)+1)):goto550<sh 
ift>/<spatie>fl 

540 fl=int(365*j3+d+31* (m-1)+int(j-1)/4)-int(3/4*int((j-1)/100)+1)<shift>/<spatie 
>ad 

550 ifmm<3goto570<shift>/<spatie>94 

560 £2=(365*3j+dd+31*(mm-1)-int(.4*mm+2.3)+int (53/4) -int (3/4*int(445/100)+1)):goto 
600<shift>/<spatie>d8 

570 £2=int(365*jj+dd+31* (mm-1)+int(jj-1)/4)-int(3/4*int((43j-1)/100)4+1) :goto600<sh 
ift>/<spatie>4a : 

580 ifint(j/4)<>j/4thenx=28<shift>/<spatie>3c 

590 return<shift>/<spatie>c2 

600 ifd>lorv=0then670<shift>/<spatie>e7 

610 ifm2<3goto630<shift>/<spatie>a8 

620 £3=(365*j32+d2+31*(m2-1)-int(.4*m2+2.3)+int(j32/4)-int(3/4*int(j52/100)+1))<shif 
t>/<spatie>0e 

625 goto640<shift>/<spatie>cs8 

630 £3=int (365*42+d2+31*(m2-1)+int(j2-1)/4)-int(3/4*int( (32-1) /100)+1)<shift>/<sp 
atie>f3 

640 vl=f£1-£2:v2=f£1-£3:fori=lto3:a=18+5*i<shift>/<spatie>e6b 

650 v(i)=abs((vl-int(vl/a)*a)-(v2-int(v2/a)*a))<shift>/<spatie>38 

660 v(i)=int(abs(v(i)-a/2)*100/(a/2) ):next<shift>/<spatie>05 

670 x=val(right$(m$(m),2)):ifx=29thengosub580<shift>/<spatie>06 

680 a=0:1=0:q=f2-fl:da=f1-f£2<shift>/<spatie>cc 

690 a=23:i=1:gosub700:a=28:1=2:gosub700:a=33:1i=3:gosub700:d=d+1l:goto900<shift>/<s 
patie>a0 

700 k(i)=0:b=sin(1/a*360/(180/3.14)*q) :b=int(16+(15*b+.5)):ifi=lthenhuS="f"<shift 
>/<spatie>4a 

710 ifi=2thenhuS="e"<shift>/<spatie>ef 

720 ifi=3thenhu$="i"<shift>/<spatie>f4 

730 ifpr$(b)="-"orpr$(b)="!"thenpr$(b)=hu$:goto750<shift>/<spatie>27 

740 pr$(b)="*"<shift>/<spatie>lb 

750 ifb=140rb=150rb=16thenk(i)=1<shift>/<spatie>b6 

760 ifi=3thengosub780<shift>/<spatie>ac 

770 return<shift>/<spatie>sf 

780 h$=str$(d):h$=(right$(h$,2)):ifda<0Othengosub90<shift>/<spatie>lb 

790 h$=h$+" "sifm=3thendrS=hs+"mrt. ":goto810<shift>/<spatie>7e 

800 dr$=h$+left$(m$(m),3)+". "<shift>/<spatie>32 

810 h$=hS$+left$(m$(m),len(m$(m) )-2)<shift>/<spatie>8f£ 

820 gosub1280:ifk(1)=lthenkS(s)=d$(z)+" "+hS+" fysiek":s=s+l<shift>/<spatie>15 
830 ifk(2)=lthenk$(s)=d$(z)+" "+h$+" emotioneel":s=s+l<shift>/<spatie>bec 

840 ifk(3)=lthenk$(s)=d$(z)+" "+h$+"  intellect":s=s+l<shift>/<spatie>98 
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850 fori=3ltolstep-1:drS=drS+pr$(i):next:printdrS;:ifda>Othenprint<shift>/<spatie 

>da 

860 ifda<Othenforxx=1to24:printchr$(157);:next:print"voor uw geboorte!"<shift>/<s 

patie>07 

870 ifda=Othenforxx=ltoll:printchr$(157);:next:printchr$(18)"geboortedag"<shift>/ 

<spatie>90 

880 ifhu=lthengosub1l040<shift>/<spatie>49 

890 gosub90:return<shift>/<spatie>49 

900 ifd<=xgoto520<shift>/<spatie>af 

910 ifhu=lthengosubl140<shift>/<spatie>b6 

915 rsS="":forxx=ltol0:rsS$=rsS$+chr$ (183) :next<shift>/<spatie>fc 

920 print," bioritmiek":print," "rs$:ifte=lthenreturn<shift>/<spatie>8f 

930 run<shift>/<spatie>2b 

940 cmd4:printchrs(2)"bioritme voor:":print#4,chr$(3),spc(1)nS:print#4,chrs$(10)<s 

hift>/<spatie>s86 

950 print#4,chr$(2)"geboren op a":print#4,d$(z)chr$(3)d$,huS<shift>/<spatie>b3 

960 print#4,chr$(10):print#4,chr$(2)spc(14)"bioritmische berekening van: "s<¢shi 

ft>/<spatie>3a 

970 ifm=3thenprint#4,"mrt."j: beep taal abi att 

980 print#4,leftS(m$(m),3)"."strs ( j)<shift>/<spatie>05 

990 print#4,chr$(10):print#4, aon Va} ‘f= fysieke gesteldheid. 23 dagen."<sh 

ift>/<spatie>bf 

1000 print#4,spc(14)"e emotionele gesteldheid. 28 dagen."<shift>/<spatie>s85 

1010 print#4,spc(14)"i intellectuele gesteldheid. 33 dagen."<shift>/<spatie>f3 

1020 eae hrea ne ce) = sgamenvallen van twee of meer ritmen."<shift>/<spatie>el 

1030 print#4,chr$(10):return<shift>/<spatie>fl 

1040 gosub1280:ifda<=0thengosubl080:return<shift>/<spatie>80 

1050 print#4,d$(z)" "dr$" "da;<shift>/<spatie>89 

1060 ifda=lthenprint#4," dag oud.":return<shift>/<spatie>ac 

1070 print#4,"dagen":return<shift>/<spatie>57 

1080 print#4,d$(z)" "dr$;:ifda<Othenprint#4," voor uw geboorte!"<shift>/<spatie 

>ba 

1090 ifda=Othenprint#4," uw geboortedag!"<shift>/<spatie>0f 

1100 return<shift>/<spatie>c6 

1110 cmd4:printspe(9);:ifm=3thenprint"mrt. ~";:gotoll130<shift>/<spatie>7£ 

1120 printleft$(m$(m),3)". “";<shift>/<spatie>lec 

1130 printjj$" “prS:print#4,chr$(10):return<shift>/<spatie>lec 

1140 x=val(right$(m$(m),2)):fori=lto34-x:next:ifs=lthenl190<shift>/<spatie>fb 

1150 4,G6(10):4,"lijst van uw kritieke dagen voor deze periode<shift>/<spatie>83 

1160 "34,G(10)h$" dag datum gesteldheid<shift>/<spati 

e>02 

11706 . BSSSeeSsssssaSseSsSss es SSseeeeees===<shift>/<spatie>58 

1180 fori=ltos-l:print#4,h$;k$(i):next:print#4, ee 10)chr$(10)<shift>/<spatie>76 

1190 ifv=0then1l250<shift>/<spatie>5ce 

1200 4,"overeenkomst tussen "nS" en "n2S" i 

1210 4,G(10)hs" fysieke gesteldheid "I 
( 
( 


, 


:<shift>/<spatie>0b 
D(v Se )),2)" %<shift>/<spatie>cl 

1220 4,hs" emotionele gesteldheid "I(D(v(2) 

1230 4,hS"intellectuele gesteldheid "I(D(v(3) 

1240 print#4,chr$(10)<shift>/<spatie>9b 

1250 print#4,"vraag voor belangrijke gebeurtenissen (operatie!) een sec-ritme"<sh 

1ft>/<spatie>22 

1260 fori=lto64:print#4,"=";:next:print#4<shift>/<spatie>97 

1270 fori=lto8:print#4,chrs$(10):next:return<shift>/<spatie>54 

1280 w=d:k=int(.6+(1/m) ):1=j-k:o=m+12*k:p=1/100<shift>/<spatie>13 

1290 zl=int(p/4):22=int(p) :z23=int((5*1) ae >:Z24=int(13*(o+1)/5)<shift>/<spatie>06 

1300 z=z4+z3-z2+z1+d-1:2=(2-(7*int(z/7)))+1l:d=w:return<shift>/<spatie>5a 

1310 SHI 4 petminel peme@th leks (Ey oes Bey Ghee (ee eens uce leass 

1320 closel:run<shift>/<spatie>0c 

a Cee 15:poke54277,10:poke54278,10:poke54273,65:poke54272,65<shift>/<spa 

tie>ba 

1340 poke54276,17:forpp=1to55:next:poke54276,0:poke54277, 0: poke54278,0<shift>/<sp 

atie>le 

1350 forii=54272t054272+24:pokeii, 0:next:return<shift>/<spatie>c5 

1360 G(147)G(17)13)"bioritme<shift>/<spatie>5l 

1365 rs$="":forxx=l1tol4:rs$=rs$+chr$(192):next<shift>/<spatie>38 


),2)" %<shift>/<spatie>02 


s 
( 
2 
3)),2)" $<shift>/<spatie>63 
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1370 print,rs$chr$(32)chr$(17)chr$(17)chr$(17):gosubl1610<shift>/<spatie>79 

1380 gosub1330:printchr$(17)chr$(31)"naam";:inputn$:gosub1330<shift>/<spatie>ll 
1390 G(28)G(17 ae de geboortedatum<shift>/<spatie>96 

1400 printchrs(3 1)chr$(17)"geboortedag"; :inputt:gosub1330<shift>/<spatie>c7 

1405 printchr$(17)"geboortemaand"; :inputm:gosub1330<shift>/<spatie>la 

1410 Sia tae Wa leiotd aides tion input j:gosub1330<shift>/<spatie>bd 

1420 printchrs(28)chr$(17)chr$(17)chr$(17)"gewenst bioritme : "chr$(17)<shift>/<s 
patie>9c 

1430 pokel98,0:printchr$(31)chr$(17)"maand";:inputmm:gosub1330<shift>/<spatie>fa 
1431 printchr$(17)"jaar";:inputjj:gosub1330:mo=mm: ja=jj:ta=tt<shift>/<spatie>75 
1440 m=m+1:mm=mm+1l<shift>/<spatie>9f 

1450 s=int(3j*365.25)-int(j*365.25)+int(mm*30.6)-int(m*30.6)-t<shift>/<spatie>lc 
1460 forn=23to33step5:s(n-23)=int((s/n-int(s/n) )*n) :next<shift>/<spatie>3b 

1470 printchr$(147)tab(3)"bioritme van :"chr$(28)nS<shift>/<spatie>a9 

1480 printchrs(31)" voor de maand:";mo;chr$(157)".";ja:print" geb.datum:"t; 
m-1;j<shift>/<spatie>76 

1490 printchr$(142):fort=0tol6:pokel304+40*t,93:poke55576+40*t, 6:next<shift>/<spa 
tie>c7 

1500 fort=0to039:pokel624+t,114:poke55896+t,6:next:pokel624,91l<shift>/<spatie>24 
1510 fort=0to039:ifint(t/5)<>t/5thenl1530<shift>/<spatie>bd 

1520 pokel664+t,66:poke55936+t,6<shift>/<spatie>c0 

1530 next:pokel624,91:fort=0to39<shift>/<spatie>36 

1540 p=t-40¥*int(.5+8*sin((s(0)+t)*2*3.1416/23) ):pokel624+p,81:poke55896+p, 2<shift 
>/<spatie>89 

1550 e=t-40*int(.5+8*sin((s(5)+t)*2*3.1416/28) ):pokel624+e,42:poke55896+e,6<shift 
>/<spatie>93 

1560 i=t-40*int(.5+8*sin((s(10)+t)*2*3.1416/33) ):pokel624+i1,87:poke55896+i,5<shif 
t>/<spatie>bd 

1565 next<shift>/<spatie>99 


1570 G(28)" input = lichamelijke toestand<shift>/<spatie>8b 

1580 G(31)" * = emotionele toestand<shift>/<spatie>67 

“1590 printchrs(30)" W = geestelijke toestand"chr$(31) :gosub1330<shift>/<spati 
e>82 


1600 sys49152:run<shift>/<spatie>53 

1610 readhh$:ifhhs<>"chb"then1l610<shift>/<spatie>90 

1620 data"chb"<shift>/<spatie>98 

1630 fori=0to97:reada:poke49152+i,a:next:return<shift>/<spatie>50 

1640 datal69,4,133,186,169,126,133,184,169,0,172,136,2,133,113,132,114,133<shift> 
/<spatie>c9 

1650 datal83,133,185,32,192,255,166, 184, 32,201.255 7174,8 7229 ,169,13% ay 210<shift> 
/<spatie>d4 


1660 data255,32,225,255,240,47,160,0,177,113,133,103,41,63,6,103,36,103<shift>/<s 
patie>el 

1670 datal6,2,9,128,112,2,9,64,32,210,255,200,204,6,229,208,229,152,24,101<shift> 
/<spatie>2b 

1680 datal13,133,113,144,2,230,114,202,208,204,169,13,32,210,255,32,204<shift>/<s 
patie>15 

1690 data255,162,126,76,195,255,96<shift>/<spatie>2c 

1700 sys65126<shift>/<spatie>0a 








NETSPANNING-6G4 
Het bijgaande programma 

hoort bij de column van Wijo 

Koek en René Boot op pagina 

79. 
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0 rem netspanning 64 (1985)<shift>/<spatie>d4 
5 rs$="";forxx=lto7:rs$=rs$+chr$(29):next<shift>/<spatie>6e 

6 do$S="":forxx=1to08:do$=do$tchr$(17):next<shift>/<spatie>65 

10 fort=0to0319:readtt:pokel2288+t,tt:nextt<shift>/<spatie>dd 

20 printchr$(147) :poke53280,11:poke53281,11:sprite= eee 

30 ee ne Re ee acre 29)chr$(29)chrsS ( 29)"kies:"<shift>/<sp 
atie> 

40 printchr$(17)chr$(17)rs$"l-  kro":printchr$(17)rs$"2- tros"<shift>/<spatie>bd 
45 printchr$(17)rs$"3- vara"<shift>/<spatie>6b 

50 geta$:a=val(a$):ifa<lora>3then50<shift>/<spatie>3d 

55 printchrs$(147): poke53265,peek (53265) and239<shift>/<spatie>8f 
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epee aia rw Venlad yells Li 


70,80,90:rem spniive-taipiel taatedsti tip cee 


60 onagoto . 
peivecini ial sats c Sep, 252:poxespel, 721 scherm™ ean E* 


70 aanbal=1:poke2040,192 
spatie>67 

75 SLOSET vai, egoeubslasprineanes{5) :S0t02 006TH Fosper 6528 

80 tcepetal gonnel Open G5oneupoeasonenPn 9 s7enenm SNS 
<spatie>44 
85 oe Le>te au, Lagonespriter23, 1 woteeprltSs77o2 Sanson feo / oem 

87 Sokecerster2 1 eoessne Eee (2(hefownepes G1) Geese Syeapaties 
90 praneenes (19) ean 28) gore pa} Loe: pokenOd7 Seer bi 

93 pantaln 3 DOee Oc eaprdd, Lapokesprsl 1<ens£t>/<GPEEIF) 

96 okeaprie  Tshitieapet set 

98 pokes 29.736; pokespri O:pokespt2,195:BoKesD +377" °° 
shift>/<spatierc? 

99 Pe /<epatse7c! erai, Teprinvchrs(5)<em te esse 

100 cheris0 pokes rg porebazen, schermegni£e/<epatle?" 

110 BO eee eh ewaitl 27, SUSEnLE> / <ep ee 

120 walt 9] oe pack: (sanne jorlgcomnet sy eee! 

130 pulse  pemgosmsobeeni-ats/ Saya esG789 

140 printchr$(19)dos'm ax geese t 4, fg neshift>/<spatie?£0 

142 Dees (17 jones (3 7)ehr6 (17 )ehes (27) gevolg van een wilde 
e>ld 

143 priukehrs(17) ‘staking bij de afaeling"<shift>/<spatief? 

144 Seineehee 17) "kelecummunaea tS van de nzshift>/<spatierad 

145 printchr$(17)"n-0-8- komen de"<shift>/<spatie>f7 

146 erintchrs(17) "programma § op dit net "<shift>/<spatierde 

148 printchr$(17)"vanavone te OP walle. 'snikes/<spatierss 

150 pri Dtehey puxit oT, oocaniber eee: | 

160 wane etsy 2310 cola pone 2agyOvPokes S261, O<SRIED SENT TT 

170 Be ee ed eelteL a7, bISEmLEw Mopar e 

180 afetatediget she? SOS SS oxnepesterz8OepranecesiM7)RUE/SENS 
ye? ? 

190 joxes3265 “peck (52265) OFLS=goEOZOCEnITED/<ORAEIS?SY 

400 rem* kro-kooi ecshiet>/<spatie76? 

410 areca SERS SSEteeo (son johes(27s)ohes a 7s)ohes 075129072) 
>/<spatier15 

415 patierl> ecitodsrsgeragechrs (214) snext <shi 07 £ SoBe 997) 

CSET feats isiee esate ceca aN 
patie> Cc 

422 e790 gt iugyechr$(214)+ohe§(1B0] <shift>/<eparseons 

425 siBtchrg zi soheg (214) che gr) sesgcones(a 70) senes 214) #enes; 460) <SRAE07°° 


xespt4, 252:pokespt5 1006 


"eshift>/<spati 


patie>9f 
430 © 9f, aii 26) 225che$(183) chs (183 }r1$<ehiEt> /<epathe70© 
440 r4s=r3$t" yr 3S<shift>/<spatie>49 


445 muegttab| so] nqenin fen / capaetere 


450 priiitab( 26 br4eesh Leto y spabie? 
460 Prinetal( 26) zascsnitt/<epatier 
470 Pr inetab(27)enr§( 127 )+essrenes (163) cans Er Coes eeu 
480 princtab(27}onr8 127) thee iaa)ohes 123 crs (209) sreturncshi £12 /<SE08% 
500 rem* vyara-uitroepteken *<shift>/<spatie>42 
510 cortex LOLolUO<shift>/<spabiez0c 
520 pokesprite+l, t<shift>/<spatie? 77 
530 porirts pelisnexe<sni they <apabieste 
540 next :return<shift>/<spatie>28 
1000 rem * kro-logo eshift>/<spatierl4 
1001 Ce oF 40 0007238, 000, 000,.252<shigt>/<spatse 7° 
1002 date 000 77 7 ad8, 009, G00, 252. Ula, Dod<shine>7 oper t 
1003 data 0 OO ooo ate 000,113,017, 252<shift>/<spatie?4e 
1004 Fe 206,119,008 006 "27,017 BaLet hd DATE 
1005 Fe ee a O03 20bs 115) 017 LOE, 11 Sean or eewa Te OF 
1006 date Gry 000-126, 000 000,231, 000<BHiEED) <epatIE I 
1007 baa 41, 000,000,231, 000, 000,231<shitt>/<spats 6° 
1008 Sa OO srg” 251,000 ,000,126, 000, 000<ehi tbp/<apatie7se 
re aon eo eee x¢shift>/<spatie>r4l 

ata (016,000,000, 056,000,024, 056<shift> i 
1011 gava000 016,000, 000,056,000, 024,096 S010) /<patiense 
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1012 datal98,096,013,255,096,007,255,192<shift>/<spatie>57 
1013 data015,131,224,059,001,184,243,001l<shift>/<spatie>5e 
1014 datal58,059,001,184,015,131,224,007<shift>/<spatie>52 
1015 data255,192,013,255,096,012,198,096<shift>/<spatie>50 
1016 data015,239,224,031,125,240,024,056<shift>/<spatie>5b 
1017 data048,000,056,000,000,016,000,000<shift>/<spatie>5d 
1019 rem * vara-logo (1) *<shift>/<spatie>65 

1020 datal92,012,192,192,012,192,192,012<shift>/<spatie>59 
1021 datal92,096,025,224,096,025,224,096<shift>/<spatie>54 
1022 data025,224,048,051,048,048,051,048<shift>/<spatie>5l1 
1023 data048,051,048,024,102,024,024,102<shift>/<spatie>5l 
1024 data024,024,102,024,012,207,252,012<shift>/<spatie>ae 
1025 data207,252,012,207,252,007,152,006<shift>/<spatie>ae 
1026 data007,152,006,007,152,006,003,048<shift>/<spatie>a6 
1027 data003,003,048,003,003,048,003,000<shift>/<spatie>ab 
1029 rem * vara-logo (2) *<shift>/<spatie>9f 

1030 data252,000,192,254,000,192,255,000<shift>/<spatie>a9 
1031 datal92,007,129,224,003,129,224,001l<shift>/<spatie>a3 
1032 datal29,224,001,131,048,001,131,048<shift>/<spatie>ad 
1033 data001,131,048,003,134,024,007,006<shift>/<spatie>ae 
1034 data024,254,006,024,252,015,252,112<shift>/<spatie>a2 
1035 data015,252,056,015,252,028,024,006<shift>/<spatie>a9 
1036 data014,024,006,007,024,006,003,176<shift>/<spatie>a6 
1037 data003,001,176,003,000,176,003,000<shift>/<spatie>a4 
1039 rem * vara-logo (3) *<shift>/<spatie>94 

1040 data000,024,000,000,024,000,000,024<shift>/<spatie>bd 
1041 data000,000,024,000,000,024,000,000<shift>/<spatie>ba 
1042 data024,000,000,024,000,000,024,000<shift>/<spatie>bf 
1043 data000,024,000,000,024,000,000,024<shift>/<spatie>be 
1044 data000,000,024,000,000,024,000,000<shift>/<spatie>bf 
1045 data024,000,000,000,000,000,000,000<shift>/<spatie>b8 
°1046 data000,024,000,000,060,000,000,060<shift>/<spatie>bb 
1047 data000,000,060,000,000,024,000,000<shift>/<spatie>be 


SPRITE EDITOR 

Een fraai programma dat u modore u op ruitjespapier wil = komt. Er zijn al veel sprite- ’Spel-ontwerpen’ verwijst Jan 
helpt bij het maken van spri- laten doen. Ook neemt de edi- editors verschenen voor de Jacobs er steeds weer naar. 
tes. In feite kunt u met dit pro- tor het rekenwerk van u over Commodore, maar wij zullen in Het is dus wel zinvol dat u de: 
gramma op het scherm doen, _ dat bij het met de hand ont- de toekomst steeds naar deze ze editor overneemt. 

wat het handboek van Com- werpen van sprites te pas verwijzen. Voor de cursus 


SPRITE EDITOR 


5 poke55,194:poke56,49:clr<shift>/<spatie>ab 

6 riS="";forxx=ltoll:riS=riS+chr$(29):next<shift>/<spatie>40 

10 dimp$(21):poke649,1:v=53248:pokev+32,0:pokev+33,0:gosub1500<shift>/<spatie>25 
15 printchr$(147)chr$(18)chr$(31)" ".s<shif 
t>/<spatie>52 

16 printchrs(5); Poa eh emer 

20 pokev+21,0:printchrs ( )chrs (156) sprite editor "s<s 
hift>/<spatie>cb 

25 printchrs$(18)chr$ ( "ehrs$ (30)? <ehi tt 
>/<spatie>75 

30 printchrs(146)chr$ ( )chr$(17)"laatst gebruikte blok =";b;chr$(13);<shift>/<sp 
atie>93 

31 Ee atiee laad/save aati = "sbl<shift>/<spatie>85 

35 printchr$(17)chr$(18)chr$( mk. Case (30)chr$(146)"start editor";chr$(13);<shi 
ft>/<spatie>fb 

36 printchr$(18)chr$(31)"2."chr$(30)chr$(146)"bekijk een sprite-blok";chr$(13);<s 
hift>/<spatie>3a 

37 printchr$(18)chr$(31)"3."chr$(30)chr$(146)"bekijk data van een sprite-blok"<sh 
ift>/<spatie>b7 

42 printchr$(18)chr$(31)"4."chr$(30)chr$(146)"sprite omkeren";chr$(13);<shift>/<s 
patie>2a 

43 printchrs$(18)chr$(31)"5."chr$(30)chr$(146)"sprite bewegen";chr$(13);<shift>/<s 
patie>26 : 

45 printchr$(18)chr$(31)"6."chr$(30)chr$(146)"laad sprite-data";chr$(13);<shift>/ 
<spatie>4f 
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48 printchr$(18)chr$(31)"7."chr$(30)chr$(146)"save sprite-data";chr$(13);<shift>/ 
<spatie>5Sa 

49 printchrs$(18)chr$(31)"8."chr$(30)chr$(146)"s t o p p e n"<shift>/<spatie>c6 

50 print:print:printchr$(156)"druk op de gewenste toets":goto227<shift>/<spatie>88 
95 printchrs$(147)<shift>/<spatie>32 

100 printchrs$(30)"welk blok (201-254)?":gosub 270:gosub 300<shift>/<spatie>32 

115 b=bl:x=24:y=74:pokev+21,61:char=160:fg=0:pokev,x:pokevtl,y<shift>/<spatie>74 
118 gosub 200<shift>/<spatie>c9 

120 ifx>2llorx<24 then x=peek(v)<shift>/<spatie>ad 

125 ify>234ory<74 then y=peek(v+l)<shift>/<spatie>30 

128 pokev,x:pokev+l,y<shift>/<spatie>20 

130 if fg=l thengosubl60<shift>/<spatie>96 

133 if fg=2 thengoto352<shift>/<spatie>95 

135 if fg=3 thengotol5<shift>/<spatie>a6 

155 gotoll8<shift>/<spatie>2a 

160 xx%=(x-12)/8:yy3=(y-46) /8:s=1024+xx3+40*yy%:pokes,char:pokes+54272,2:fg=0<shi 
ft>/<spatie>el 

165 return<shift>/<spatie>2b 

200 getk$:ifk$=""then200<shift>/<spatie>ff 

205 ifkS=chr$(157)thenx=x-8:return<shift>/<spatie>5c 

208 ifk$=chr$(29)thenx=x+8:return<shift>/<spatie>78 

210 ifkS=chr$(145)theny=y-8:return<shift>/<spatie>40 

215 ifkS=chrs$(17)theny=y+8:return<shift>/<spatie>72 


218 ifk$S="a"thenchar=160:fg=l:return<shift>/<spatie>fb 

220 ifkS=" "thenchar=32:fg=l:return<shift>/<spatie>aa 

222 ifk$=chr$(13)thenfg=3: eee ee 

224 1£k$=chr$(133)thenprintchrs(19)chr$(31)chr$(18)"sprite wordt gemaakt":fg=2<sh 
ift>/<spatie>02 

226 return<shift>/<spatie>6c 


227 getk$:ifkS=""then227<shift>/<spatie>dl 

kS="1"then95<shift>/<spatie>28 

kS="2"then600<shift>/<spatie>le 

kS="3"then502<shift>/<spatie>18 

kS="4"then705<shift>/<spatie>19 

k$="5"then875<shift>/<spatie>ll 

kS="6"then820<shift>/<spatie>0d 

k$S="7"then858<shift>/<spatie>0a 

250 ifkS="8"thenend<shift>/<spatie>b3 

253 goto227<shift>/<spatie>43 

270 printchr$(156)chr$(18)"blok"chr$(146);:inputbl$:bl1S=left$(b1$,3):bl=val(bl$)< 
shift>/<spatie>ca 

272 ifbl>255o0rb1<200thenprint"out of range":goto270<shift>/<spatie>88 

275 return<shift>/<spatie>9Ic 

280 printchr$(30)"klaar, raak een toets voor het menu":pokel98,0:waitl98,l<shift> 
/<spatie>78 

290 return<shift>/<spatie>ad 

300 printchr$(147)chr$(17)chr$(30):forl=0tol8:printtab(28)chr$(18)" "<s 
hift>/<spatie>5l 

301 nextl:printchr$(19)chr$(17)chr$(17)chr$(31);<shift>/<spatie>70 

318 printchr$(18)" ";forl=0to20<shift>/<spatie>ba 

320 printchr$(18)" "chrs(146)" "chr$(18)" "chr$(146) ;riS<s 
hift>/<spatie>dc 

325 nextl<shift>/<spatie>8a 

330 printchr$(18)" ";<shift>/<spatie>26 

335 printchr$(19);chr$(18)chr$(31)"teken";" blok";bl;<shift> 
/<spatie>47 

336 printchrs(157)" "<shift>/<spatie>3d 

338 iffg=4thengoto345<shift>/<spatie>43 

340 return<shift>/<spatie>db 

345 printchr$(19)chr$(17)chr$(17)chr$(17)chr$(28):forl=0tol8:printchr$(29);p$(1)< 
shift>/<spatie>b7 

346 nextl:fg=0:gotoll5<shift>/<spatie>aa 

352 m=b1*64:r=0: forl=0to20:p$(1)=""snext1l:forl=0to062:pokemt+l,0O:nextl<shift>/<spat 
Les79 

353 forry=0to020:yy=1145+40*ry:rx=0<shift>/<spatie>fc 

365 forc=0to2<shift>/<spatie>ba 

368 forn=7to0step-1:p=peek(yytrx)<shift>/<spatie>27 

370 ifp=160thenpokem, (peek(m)+2)and255: p$(r)=p$(r)t+tchrs(18)+" "+chr$(146)<shift 
>/<spatie>2e 

400 ifp=32thenp$(r)=p$(r)+" "<shift>/<spatie>66 

402 rx=rxt]l:nextn:m=m+1:nextc:r=r+l:nextry<shift>/<spatie>04 

405 forc=0to3:poke2042+c,bl:nextc<shift>/<spatie>da 

450 Seinen Tie eee rait :gosub280:gotol5<shift>/<spatie>55 

502 printchr$(147)chrs$( "data voor welk eee 


505 gosub270:m=b1*64: coolinglee et 17)chr$(17);:forl=mtom+62:printchr$(30)chrs$(29) 
hift>/<spatie>62 





NO 

Ww 

co 
BeBe Be Be Be Be Be 
Hh EA Eh Hh Bh Fh fh 
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506 printpeek(1);",";<sh1i£it>/<spatiedcl 

508 nextl:printchr$(20);chr$(13):gosub280:gotol5<shift>/<spatie>91 

600 printchr$(147)chr$(30)"welk sprite-blok?":gosub270:m=b1*64:p=peek(m)<shift>/< 
spatie>67 

601 pokev+21,61:b=bl<shift>/<spatie>dc 

602 forl=2042t02045:pokel,bl:nextl:gosub300: forry=0to20;: yy=1145+40*ry:rx=0<shift> 
/<spatie>91 

605 forc=0to2:forn=7to0step-l<shift>/<spatie>5e 

618 ifp>=2thenp=p-2:poke54272+yy+rx,2:pokeyyt+rx,160:<shift>/<spatie>ad 

625 rx=rx+linextn:m=m+1:;p=peek(m):nextc:nextry<shift>/<spatie>al 

630 gotol5<shift>/<spatie>f£9 


705 printchrs(147);chr$(30)"welk blok omkeren?":gosub270;:m=bl1*64;:b=bl<shift>/<sva 
tie>06 

710 forl=mtom+63:pokel ,255-peek(1):nextl<shift>/<spatie>9f 

720 gosub280:gotol5<shift>/<spatie>d2 

820 printchrs$(147)chr$(30)"in welk blok data laden?":gosub270:m=b1*64:bl=bl<shift 
>/<spatie>f8 

821 print"van "chr$(18)"c"chr$(146)"assette of "ehrs (18) "d"chrS (146) "iskette:"<sh 
ift>/<spatie>f2 

822 getaw$S:ifaw$=""then822<shift>/<spatie>08 

823 ifawS="d"then 830<shift>/<spatie>e7 

824 ifawS="c"then 825:goto822<shift>/<spatie>60 

825 openl,1,0,"":forl=0to62:input#l,x:pokem,x:m=m+l:nextl:closel:gosub280<shift>/ 
<spatie>c2 

826 gotol5<shift>/<spatie>b4 

830 input"welke file-naam";awS<shift>/<spatie>e9 

832 open2,8,2,"s0:"tawSt+",s,r"<shift>/<spatie>a2 

834 forl=0to62:input#2,x:pokem,x:m=m+1:nextl:close2:gosub280<shift>/<spatie>00 
835 gotol5<shift>/<spatie>cd 

858 printchrs(147);chr$(18)chr$(30)"welk blok saven?":gosub270:m=b1*64:bl=bl<shif 
t>/<spatie>78 

860 print"op "chr$(18)"c"chr$(146)"assette of "chrs(18)"d"chr$(146)"iskette:"<shi 
ft>/<spatie>dd 

861 getaw$:ifawS=""then861<shift>/<spatie>64 

862 ifawS="da"then 866<shift>/<spatie>8d 

863 ifawS="c"then 864:goto86l<shift>/<spatie>05 





864 openl,1l,1,"sprite data":forl=mtomt+63:x=peek(1):print#1,x:nextl<shift>/<spatie. 


>da 

865 closel:gosub280:gotol5<shift>/<spatie>c9 

866 input"welke file-naam:";awS$<shift>/<spatie>8f 

867 open2,8,2,"S0:"tawSt+",s,w"<shift>/<spatie>84 

868 forl=mtom+63:x=peek(1):print#2,x:nextl<shift>/<spatie>5c 

869 close2:gosub280:gotol5<shift>/<spatie>ce 

870 :<shift>/<spatie>5f 

875 pokev+21,0:printchr$(147)chr$(30)"type het bloknr dat @ wile Deweeenrcehi Pes 
<spatie>82 

876 print"’e’ stopt de beweging":print" spatie” vertraagt de beweging"<shift>/<sp 
atie>1l2 

877 gosub270:an(0)=bl<shift>/<spatie>6e 

880 printchr$(18)chr$(30)"vergroten x,y,n(iet),b(eide)"chr$(146);:inputop$<shift> 
/<spatie>ba 

881 op$=leftS(op$,1):ifops="x x"thenpokev+29,1<shift>/<spatie>ae 

882 ifop$S="y"thenpokev+23,l<shift>/<spatie>fa 

883 ifops="b"thenpokevt23,1l:pokev+29,1l<shift>/<spatie>a7 

884 x=24:pokevt+1,140:r=0:pokev+21,1<shift>/<spatie>47 

885 poke2040,an(r):r=rt+l:ifr>pthenr=0<shift>/<spatie>fl 

886 ifx>320thenpokevt16,0:x=24<shift>/<spatie>27 

888 pokevt+16,int(x/256) :pokev,xand255:x=x+2<shift>/<spatie>49 

890 getkS:ifk$S="e"then900<shift>/<spatie>00 

892 ifkS=" "thengosub895<shift>/<spatie>17 

893 fort=0to30:nextt:goto885<shift>/<spatie>red 

895 fort=0to700:next:return<shift>/<spatie>b4 

900 pokev+23,20:pokev+29,24:gosub280:poke2040,11l:pokevt+16,60:x=24: pokev,x<shift>/ 
<spatie>9c 

905 gotol5<shift>/<spatie>07 

1500 pokev+16,60:pokev+39,4:forl=41to044:pokev+1,6:nextl:pokev+23,20: pokev+29,24<s 
hift>/<spatie>c5 

13 LS pokev+4,10:pokev+5,70:pokev+6,10:pokev+7,115:pokev+8,10:pokev+9,140<shift>/< 
1518 pokev+10,10:pokev+11,188:poke2040,11:forl=704t0704+63:read d:pokel,d:nextl<s 
hift>/<spatie>ad 

1530 restore:return<shift>/<spatie>c7 

1535 datad,255;,0,0,255:,0 ;0,.255;.0, 0),.2550, 07,255,005 2550; 0,255 70704 255, 0MShiI Ft /< 
spatie>55 

1540 OE espe jpop a8 be PERE EEN EE OE EE ALOR TA EDAD GATE REED Rie BLE EE PSSLLLE CER 
spatie>ad 
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Maandelijkse rubriek met de belangrijkste informatie uit de 
Commodore gebruikersclubs. 


Stichting Computer Hobbyisten 
Nederland (SCN) 
HOT NEWS 


Secretariaat: A. Brink, tel. 
03450-16051 (ma-, di- en 
woensdag tussen 13.00 en 
22.00 uur) 

Voor inlichtingen over de re- 
gionale afdelingen kun u zich 
wenden tot: 

Afdeling Zwolle: P.P.L. van 
Bijsterveld, tel. 038-548459. 
Afdeling Midden Nederland: H. 
Scheffer, tel. 03453-1375 
Afdeling Deventer:tel. 
05700-50758/50759 
Algemene bijeenkomsten: 
tweede zaterdag van de 
maand in de scholengemeen- 
schap Centrum/oud-west, Jan 
van Galenstraat t/o nr. 14, 
Amsterdam. Vanaf april wor- 
den de bijeenkomsten gehou- 
den in De Meervaart, Osdorp- 
plein, Amsterdam. 


Vereniging voor de Gebruikers van 
Commodore-computers in Nederland 
(VCGN) 


Secretariaat: Ine van Teijlin- 
gen, De Brink 928, 2553 HT 
Den Haag, tel.: 070-971851 
(van 20.00 -22.00 uur, m.u.v. 
maandag en woensdag) 
b.g.g. 070-687924 of 
070-946156 


Voor inlichtingen over de re- 
gionale afdelingen kunt u zich 
wenden tot: 

Afdeling Zeeland: R. van Dijk, 
tel. 01180-25746 

Afdeling West-Brabant: P. Ne- 
len, tel. 01640-51639 

Afdeling Midden-Brabant: W. 
Wils, tel. 01620-55634 
Afdeling Oost-Brabant: C. de 
Winter, tel. 04120-42054 
Afdeling Zuid-Limburg: J. van 
Mastrigt, tel. 043-476935 
Afdeling Zuid Holland-Zuid: D. 


COMMODORE MARKT 


Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
Sluitend bedoeld voor particulieren. Puur commerciéle adver- 
tenties en aanbiedingen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 
als gevolg van onduidelijke opgave. 

Een advertentie mag ten hoogste 7 regels van 25 aanslagen 


lang zijn. 
IK BIED HARDWARE AAN 


* Vie-20 + rec. + 2 joyst. + softw. + 
Ned. handb. Pr. f 400,-. Tel. 
010-835101. 


* Vic-20 met uitbr. tot 20K Ram + 
comm. Cass.rec. + joyst. (beste uit 
cons.test) z.g.a.n. t.e.a.b. J. Drijver, tel. 
078-170523. 


* CBM 64 + cass.rec. + joystick + 55 
Spelletjes, Simon’s Basic + reset-knop. 
Prijs f 625,-. Na 6u 02263-3906. Vragen 
naar Jan-Willem. 


* C 64, datarec., 1541 (3wk!), Zenith 
monitor (1,5wk!), 20 diskettes tot 

f 1900! Veel softw. met handl. + div. 
boeken. Prijs laag! Wegens syst. 

wiss. en veel korting op nwe syst. R. 

Montsma, Pieter 3, 3641 NA Mijdrecht, 
02979-3329. 


* Voor zendamateurs RTTY/Morse deco- 
der v. Commodore 20 of 64. U dient 
slechts een kortegolf zender/ontvanger te 
hebben. Inl.: B.G. Remmers, Postbus 116, 
6500 AC Nijmegen, 080-239490. 


* Commodore Vic 20 + cass.rec. + 40 
spell. + joyst. + 2 Ned. instr.boeken 
(ook Engelse). Prijs f 300,-. Tel. 
040-416984. 


* Comm. C2001 incl. cass.rec. en enkele 
progr. en lectuur. Vr.pr. f 2200,-. Tel. na 
19u 050-719477. 


IK BIED HARDWARE EN 
SOFTWARE AAN 


* MPS-801 printer (CBM) + 40 C-64 
topprogramma’s + 3 mnd. garantie, 
f 700,-. Tel. 01820-35147. 


IK BIED SOFTWARE AAN 


* Veel progr. voor Vic-20, ook games 
(Frogger, Pacman, Skramble). Voor info, 
bel 073-563562 of schrijf: Jorg 
Roodbeen, Brabantlaan 43, 5262 GX 
Vught (postz. bijstuiten). 


* Forth cart. voor CBM-64 (Audiogenic) 
samen met boek Flitsend Forth en 
uitgebr. handi., f 100,-. Tel. 
020-173432. 


van Riemsdijk, tel. 010-501023 
Afdeling Noord Holland-Zuid: 
J.A. Dekker, tel. 02502-7968 
Algemene bijeenkomsten: 
laaiste zaterdag van de maand 
in Rijswijk (Lodewijk Makeblij- 
de College, H.R. Holstlaan 2, 
2283 HB). 
Afdelingsbijeenkomsten: 
Afdeling Zeeland: bij wijze van 
proef: maandag 11/2 ’savonds, 
zaterdag 9/3 overdag. De data 
van de overige bijeenkomsten 
zijn nog niet bekend. 

Afdeling West-Brabant: eerste 
zaterdag van de maand 
Afdeling Midden-Brabant: derde 
zaterdag van de maand. (in ver- 
band met carnaval zal in februari 
de bijeenkomst op de tweede za- 
terdag worden gehouden). 
Afdeling Oosi-Brabant: derde 
zaterdag van de maand. (in ver- 
band met carnaval zal in febru- 
ari de bijeenkomst op de twee- 
de zaterdag worden gehouden). 
Afdeling Zuid-Limburg: eerste 
zaterdag van de maand 
Afdeling Zuid Holland-Zuid: 
eerste zaterdag van de maand 
Afdeling Noord Holland-Zuid: 
eerste zaterdag van de maand 


* NOS Basicode-2 pakket, bestaande uit 
boek + cass. Stort f 20,- op giro 
4371562 t.n.v. J. de Jager, Schoolstr. 
11, 7071 ZX Ultt. 


IK ZOEK HARDWARE 


* Commodore 64 diskdrive, max. 1 jr. 
oud. Tel. 02230-31382. 


* CBM 1541 diskdrive, aanbiedingen + 
prijsopg. sturen naar M. v. Kersen, 
Waardsedijk 4, 3448 HV Woerden, tel. 
03480-15680. 


* Commodore 64 met datarec. E. 
Schieving, Crocuslaan 12, 5582 GB 
Waalre, tel. na 19u s.v.p. 04904-2194. 


* CBM-64 met datarec. en event. softw. 
Tel. 010-193881. 


* Expansion interf. v. TRS-80 met 32K 
Ram en RS-232 interf. Tevens hi-res 
modific. + benodigde softw. L.E. 
Eikenoord, tel. na 19.30u: 01862-1772. 


* Commodore 64 aanbieding met prijsopg. 
aan R. Pieterse, Dr. A. Kuyperstraat 8, 
2841 CJ Moordrecht, tel. 01827-3037. 


* Commodore 8032 + disk drive model 
8050 of wat daar compatibel mee is. C. 
van Benthum, Burg. van Hultenstraat 7, 
5443 AP Haps, tel. (tijdens kantooruren) 
040-762888. 


* Voor CBM-64: disk drive 1541 en 
grafische printer (bijv. DCS-64 of 
MPS-801 of MPS 803). Schrijf naar: D. 
Cras, Van Ostadelaan 4, 3723 BZ 
Bilthoven. 


PET-Benelux Exchange 
Secretariaat: Copytronics, 
Postbus 700, 7400 AS Deven- 
ter, tel. 05759-2211 

Voor inlichtingen over de regi- 
onale afdelingen kunt u zich 
wenden tot: 

Afdeling Zeist: tel. 05759-211 
Afdeling Nijmegen: tel. 
05759-2211 

Afdeling Haaksbergen: tel. 
053-7664444 

Service Reparatie Centrum voor 
PET-leden: tel. 053-766444. 
Algemene bijeenkomsten: 
Afdeling Zeist: eerste zaterdag 
van de maand 

Afdeling Nijmegen: tweede za- 
terdag van de maand 

Afdeling Haaksbergen: derde 
zaterdag van de maand 


HCC-Commodore-COMPET gebrui- 
kersgroep 

Secretariaat: J.J. van Douwen, 
Couwenhoven 1203, 3703 VB 
Zeist, tel. 03404-59599 
Bijeenkomsten: 

Utrecht: zaterdag 19/1, 23/3, 
8/6, 21/9 en 30/11 
Waddinxveen: zaterdag 23/2, 
27/4, 6/7, 26/10 en 21/12. 


IK ZOEK HARDWARE EN SOFTWARE 


* Vie-20 hard/software. Omschr. en 
prijsopg. naar: |. Witte, Peerlkamplaan 3, 
1217 AT Hilversum. 


IK ZOEK SOFTWARE 


* Wie heeft v. mijn Commodore 64 een 
progr. voor het bijhouden van bowling 
scores? Tegen verg. H. van Balen, Jan 
van Houtstraat 112, 2581 TA Den Haag. 
Tel. 070-501235. 


* Beginner zoekt softw. v. CBM 64. 
Schrijf of bel naar W. van Eck, Ged. 
Binnengracht 58, 3441 AH Woerden, tel. 
na 6u 03480-19201. 


* Wie kan mij helpen aan een goede 
database, bijv. Superbase 64, evt. tegen 
bet.? Tevens div. serieuze softw., evt. 
tuilen. Eriq Terra, Van Riellaan 29, 3571 
WB Utrecht. 


* CBM-64: Viditel-progr. met 
Telesoftware. Tel. 04163-72815. 


* Ik ben op zoek naar redel. profess. 
softw. voor de Commodore 64. Ben 
bereid cen redel. verg. te geven. Tel. na 
18u 02284-1611. 


* Wie heeft C-16 softw., alleen op 
Cassette (geen spel), en Ned. 
gebruiksaanw.? Aanb. + prijsopg. naar C. 
Nijpels, Atoomstraat 13, 6227 Cm 
Maastricht. 


* Wie heeft voor mij progr. voor de 
C-64? Graag uitgeprint. P. Nijsen, 
Neptunusstraat 13, 1223 HJ Hilversum. 








